home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Development Platforms / Apple II / Essentials / MPW IIGS Interfaces / AIIGSIncludes / M740.aii < prev   
Encoding:
Text File  |  1990-04-01  |  1.9 KB  |  76 lines  |  [TEXT/MPS ]
  1. ; File: M740.aii
  2. ;
  3. ;
  4. ; Copyright Apple Computer, Inc. 1986-88
  5. ; All Rights Reserved
  6. ;
  7.  
  8. ;...............................................................
  9. ;
  10. ;              clb 
  11. ;
  12. ;...............................................................
  13.     MACRO
  14.     clb        &BitNum,&Dest
  15.     IF NOT &IsInt(&BitNum) THEN
  16.         AERROR 'clb expects a number as its first argument'
  17.         MEXIT
  18.     ENDIF
  19.     IF &SETTING('MACHINE') <> 'M740' THEN
  20.         AERROR 'clb macro is valid only when MACHINE M740 is in effect'
  21.     ELSE
  22.         &CONCAT('CLB',&INTTOSTR(&EVAL(&BitNum)))    &Dest
  23.     ENDIF
  24.     ENDM
  25. ;...............................................................
  26. ;
  27. ;              seb 
  28. ;
  29. ;...............................................................
  30.     MACRO
  31.     seb        &BitNum,&Dest
  32.     IF NOT &IsInt(&BitNum) THEN
  33.         AERROR 'seb expects a number as its first argument'
  34.         MEXIT
  35.     ENDIF
  36.     IF &SETTING('MACHINE') <> 'M740' THEN
  37.         AERROR 'seb macro is valid only when MACHINE M740 is in effect'
  38.     ELSE
  39.         &CONCAT('SEB',&INTTOSTR(&EVAL(&BitNum)))    &Dest
  40.     ENDIF
  41.     ENDM
  42. ;...............................................................
  43. ;
  44. ;              bbc 
  45. ;
  46. ;...............................................................
  47.     MACRO
  48.     bbc        &BitNum,&Source,&Target
  49.     IF NOT &IsInt(&BitNum) THEN
  50.         AERROR 'bbc expects a number as its first argument'
  51.         MEXIT
  52.     ENDIF
  53.     IF &SETTING('MACHINE') <> 'M740' THEN
  54.         AERROR 'bbc macro is valid only when MACHINE M740 is in effect'
  55.     ELSE
  56.         &CONCAT('BBC',&INTTOSTR(&EVAL(&BitNum)))    &Source,&Target
  57.     ENDIF
  58.     ENDM
  59. ;...............................................................
  60. ;
  61. ;              bbs 
  62. ;
  63. ;...............................................................
  64.     MACRO
  65.     bbs        &BitNum,&Source,&Target
  66.     IF NOT &IsInt(&BitNum) THEN
  67.         AERROR 'bbs expects a number as its first argument'
  68.         MEXIT
  69.     ENDIF
  70.     IF &SETTING('MACHINE') <> 'M740' THEN
  71.         AERROR 'bbs macro is valid only when MACHINE M740 is in effect'
  72.     ELSE
  73.         &CONCAT('BBS',&INTTOSTR(&EVAL(&BitNum)))    &Source,&Target
  74.     ENDIF
  75.     ENDM
  76.